home *** CD-ROM | disk | FTP | other *** search
/ Machine Hunter - Digital … Kit (Europe) (En,Fr,De) / Machine Hunter - Digital Press Kit (Europe) (En,Fr,De).bin / mac / EIDOS.dir / 00177_Script_177 < prev    next >
Text File  |  1997-05-14  |  664b  |  28 lines
  1. on maccopypress
  2.   
  3.   
  4.   
  5.   openXLib ":Xtras:macxtra:filecopy"  -- custom xtra
  6.   
  7.   set fileName = the pathName&"presstxt:"&the name of cast the mousecast  -- Display Open Dialog and return the fileName
  8.   if fileName > "" then
  9.     put filename
  10.     
  11.     
  12.     set loc = "desktop folder:"
  13.     set wFileName = doSaveAsDlg(loc&the name of cast the mousecast, "word files@*.rtf")
  14.     
  15.     if wFileName > "" then   
  16.       put wfilename
  17.       
  18.         set result = copyFile(wFileName, fileName) -- this is the call that does the copying
  19.       put result
  20.     end if  
  21.   end if
  22.   
  23.   closeXLib ":Xtras:macxtra:filecopy"
  24.   abort
  25.   
  26. end maccopypress
  27.  
  28.